(let [conn (dt/create-conn)
      _ (d/posh! conn)
      ents [{:a "foo" :b 42}
            {:a "bar" :b 52}
            {:a "baz" :b 62}]
      tran (d/transact! conn ents)
      eids (->> (d/q '[:find ?e
                       :where [?e :a _]] conn)
                deref
                (reduce into [])
                reverse)
      ;;dtlg-raw (dt/pull-many (dt/db conn) '[*] eids)
      entity-reaction (d/pull-many conn '[*] eids)]
  (is (= ents (map #(select-keys % [:a :b]) @entity-reaction))
      "Entities in reaction should match input entities against input sequence of eids")
  (let [updated-ents (vec (map #(update % :b inc) @entity-reaction))]
    (d/transact! conn updated-ents)
    (is (= updated-ents @entity-reaction)
        "Entities in reaction should updated after transact")))